home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / MISC / MAG10.ZIP / VECTGEN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-08-26  |  1.5 KB  |  65 lines
  1. Program VectorGen;
  2.  
  3. Uses Crt;
  4.  
  5. Const MaxBalls=200;
  6.  
  7. Type Ball3d=Record
  8.                   Color:Byte;
  9.                   X,Y,Z:Integer;
  10.             End;
  11.  
  12.      Balls=Array[1..MaxBalls] Of Ball3d;
  13.  
  14. Var Obj:Balls;
  15.     B:Byte;
  16.     A:Byte;
  17.     Filename:String;
  18.     F:Text;
  19.  
  20. Begin
  21.      ClrScr;
  22.      TextColor(Yellow);
  23.      Writeln('«««««««««««««««««««««««««««««««« Vector Generator »»»»»»»»»»»»»»»»»»»»»»»»»»»»');
  24.      Writeln;
  25.      TextColor(LightCyan);
  26.      Writeln('                                  By Spellcaster');
  27.      Writeln;
  28.      TextColor(LightGreen);
  29.      Writeln('Number of balls in object (Max=',MaxBalls,') ?');
  30.      TextColor(LightRed);
  31.      Readln(B);
  32.      If B=MaxBalls Then Exit;
  33.      Writeln;
  34.      TextColor(LightGreen);
  35.      Writeln('Type in balls...');
  36.      TextColor(LightRed);
  37.      For A:=1 To B Do
  38.      Begin
  39.           TextColor(LightGreen);
  40.           Writeln('Ball number ',A);
  41.           Writeln('X,Y,Z,Color ?');
  42.           TextColor(LightRed);
  43.           Readln(Obj[A].X,Obj[A].Y,Obj[A].Z,Obj[A].Color);
  44.      End;
  45.      Writeln;
  46.      TextColor(LightGreen);
  47.      Write('Name of file:');
  48.      TextColor(LightCyan);
  49.      ReadLn(Filename);
  50.      Writeln('Saving data...');
  51.      Assign(F,Filename);
  52.      ReWrite(F);
  53.      WriteLn(F,B);
  54.      For A:=1 To B Do
  55.      Begin
  56.           WriteLn(F,Obj[A].X);
  57.           WriteLn(F,Obj[A].Y);
  58.           WriteLn(F,Obj[A].Z);
  59.           WriteLn(F,Obj[A].Color);
  60.      End;
  61.      Close(F);
  62.      TextColor(LightGreen);
  63.      Writeln('Done...');
  64.      Readln;
  65. End.